home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_105_Dialog.DEF < prev    next >
Encoding:
Modula Definition  |  1992-04-08  |  674 b   |  36 lines
  1. (* %filename% -- dialog *)
  2. (* Created %date% %time% by AppMaker *)
  3.  
  4. DEFINITION MODULE U%dlogname%;
  5.  
  6. FROM Types IMPORT
  7.     INT16, Str255;
  8. FROM UMacApp IMPORT
  9.     TView, TWindow;
  10. FROM UDialog IMPORT
  11.     TDialogView;
  12. %for each item gen defImports%
  13.  
  14. (*${QINSPECTOR*)
  15. FROM UMacAppUtilities IMPORT
  16.     DoToFieldMETHOD;
  17. (*$}*)
  18.  
  19. TYPE
  20.     T%dlogname% = OBJECT (TDialogView)
  21.         OVERRIDE METHOD DoChoice (origView:    TView; itsChoice: INT16);
  22.  
  23.     (*${QINSPECTOR*)
  24.         OVERRIDE METHOD Fields (DoToField:    DoToFieldMETHOD);
  25.     (*$}*)
  26.     END(*T%dlogname%*);
  27.     %for each item gen classDecl%
  28.  
  29. (*----------*)
  30. %if modeless%
  31.     PROCEDURE  New%dlogname% (): TWindow;
  32. %else%
  33.     PROCEDURE Do%dlogname%;
  34. %endif%
  35.  
  36. END U%dlogname%.